home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Prop Wheel 2.1.cpt / Proportion Wheel 2.1 / background_2739.txt < prev    next >
Text File  |  1987-11-23  |  7KB  |  337 lines
  1. -- background: 2739 from stack: in.1
  2. -- bmap block id: 2387
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=225 top=116 right=138 bottom=287
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: PCT
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=155 top=176 right=198 bottom=254
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 14
  31. -- style flags: 256
  32. -- line height: 18
  33. -- part name: OW
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put empty into field "NW"
  37.   ask "Enter original width:"
  38.   put it into field "OW"
  39. end mouseUp
  40.  
  41.  
  42. -- part 3 (field)
  43. -- low flags: 01
  44. -- high flags: 0002
  45. -- rect: left=259 top=176 right=198 bottom=358
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 3
  50. -- text size: 14
  51. -- style flags: 256
  52. -- line height: 18
  53. -- part name: NW
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   put empty into field "NL"
  57.   ask "Enter new width:"
  58.   put it into field "NW"
  59. end mouseUp
  60.  
  61.  
  62. -- part 4 (field)
  63. -- low flags: 01
  64. -- high flags: 0002
  65. -- rect: left=155 top=233 right=255 bottom=254
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 3
  70. -- text size: 14
  71. -- style flags: 256
  72. -- line height: 18
  73. -- part name: OL
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   put empty into field "NL"
  77.   ask "Enter original length:"
  78.   put it into field "OL"
  79. end mouseUp
  80.  
  81.  
  82. -- part 6 (button)
  83. -- low flags: 00
  84. -- high flags: 8000
  85. -- rect: left=447 top=79 right=129 bottom=497
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 27056 / 27056
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Go Figure
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   if field "NL" is empty then
  97.     figureLength
  98.   else
  99.     figureWidth
  100.   end if
  101. end mouseUp
  102.  
  103. on figureLength
  104.   put the value of field "NW" / field "OW" * 100 into temp1
  105.   put the round of temp1 into field "PCT"
  106.   put the value of field "OL" * field "PCT" / 100 into field "NL"
  107. end figureLength
  108.  
  109. on figureWidth
  110.   put the value of field "NL" / field "OL" * 100 into temp3
  111.   put the round of temp3 into field "PCT"
  112.   put the value of field "OW" * field "PCT" / 100 into field "NW"
  113. end figureWidth
  114.  
  115.  
  116.  
  117. -- part 5 (field)
  118. -- low flags: 01
  119. -- high flags: 0002
  120. -- rect: left=259 top=233 right=255 bottom=358
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 3
  125. -- text size: 14
  126. -- style flags: 256
  127. -- line height: 18
  128. -- part name: NL
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   put empty into field "NW"
  132.   ask "Enter new length:"
  133.   put it into field "NL"
  134. end mouseUp
  135.  
  136.  
  137. -- part 7 (button)
  138. -- low flags: 00
  139. -- high flags: 8000
  140. -- rect: left=443 top=24 right=74 bottom=501
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 7012 / 7012
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: New Photo
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   repeat with x = 1 to 5
  152.     put empty into field x
  153.   end repeat
  154.   answer "Do you wish the width in inches or picas?" with "Inches" or "Picas"
  155.   put it into ami1
  156.   put "Width/" & ami1 into field "Width"
  157.   ask "Original width of photo:"
  158.   put it into field "OW"
  159.   ask "New width of photo:"
  160.   put it into field "NW"
  161.   answer "Do you wish the length in inches or picas?" with "Inches" or "Picas"
  162.   put it into ami2
  163.   put "Length/" & ami2 into field "Length"
  164.   ask "Original length of photo:"
  165.   put it into field "OL"
  166.   ask "New length of photo:"
  167.   put it into field "NL"
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 8 (button)
  173. -- low flags: 00
  174. -- high flags: 0000
  175. -- rect: left=456 top=139 right=169 bottom=490
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 20098 / 20098
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Go home
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   go Home
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 9 (button)
  192. -- low flags: 00
  193. -- high flags: 8000
  194. -- rect: left=4 top=130 right=176 bottom=47
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 1020 / 1020
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Help
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   show field "Help screen"
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 10 (button)
  211. -- low flags: 00
  212. -- high flags: 8000
  213. -- rect: left=0 top=77 right=126 bottom=52
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 2 / 2
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Converter
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   Ask "Enter fraction or decimal: (Ex: 15/16 or .93)"
  225.   put it into temp
  226.   show field "converter"
  227.   find temp in field "converter"
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 13 (field)
  233. -- low flags: 81
  234. -- high flags: 0007
  235. -- rect: left=47 top=78 right=111 bottom=186
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 0
  239. -- font id: 3
  240. -- text size: 12
  241. -- style flags: 256
  242. -- line height: 16
  243. -- part name: converter
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   hide field "converter"
  247. end mouseUp
  248.  
  249.  
  250. -- part 15 (field)
  251. -- low flags: 81
  252. -- high flags: 0007
  253. -- rect: left=29 top=242 right=340 bottom=482
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 0
  257. -- font id: 3
  258. -- text size: 10
  259. -- style flags: 0
  260. -- line height: 13
  261. -- part name: Help screen
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.   hide field "Help screen"
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 16 (field)
  270. -- low flags: 01
  271. -- high flags: 0000
  272. -- rect: left=194 top=142 right=162 bottom=318
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 3
  277. -- text size: 14
  278. -- style flags: 10496
  279. -- line height: 18
  280. -- part name: Width
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   if field "Width" = "Width/Inches" then
  284.     convertPicas
  285.   else
  286.     convertInches
  287.   end if
  288. end mouseUp
  289.  
  290. on convertPicas
  291.   put field "OW" * 6 into field "OW"
  292.   put field "NW" * 6 into field "NW"
  293.   put "Width/Picas" into field "Width"
  294. end convertPicas
  295.  
  296. on convertInches
  297.   put field "OW" / 6 into field "OW"
  298.   put field "NW" / 6 into field "NW"
  299.   put "Width/Inches" into field "Width"
  300. end convertInches
  301.  
  302.  
  303.  
  304. -- part 17 (field)
  305. -- low flags: 01
  306. -- high flags: 0000
  307. -- rect: left=194 top=201 right=221 bottom=318
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 3
  312. -- text size: 14
  313. -- style flags: 10496
  314. -- line height: 18
  315. -- part name: Length
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   if field "Length" = "Length/Inches" then
  319.     convertPicas
  320.   else
  321.     convertInches
  322.   end if
  323. end mouseUp
  324.  
  325. on convertPicas
  326.   put field "OL" * 6 into field "OL"
  327.   put field "NL" * 6 into field "NL"
  328.   put "Length/Picas" into field "Length"
  329. end convertPicas
  330.  
  331. on convertInches
  332.   put field "OL" / 6 into field "OL"
  333.   put field "NL" / 6 into field "NL"
  334.   put "Length/Inches" into field "Length"
  335. end convertInches
  336.  
  337.